home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abe.d64 / psi (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  205 lines
  1. 10 REM  ***********************
  2. 20 REM ***        PSI      ***
  3. 30 REM ***   A PROGRAM BY  ***
  4. 40 REM ***JEFFREY S. TOLLEY***
  5. 50 REM ***    Q-LINK NAME: ***
  6. 60 REM ***     JEFF T13    ***
  7. 70 REM ***********************
  8. 80 REM TITLE SCREEN
  9. 90 PRINT"[156][147]":POKE53280,15:POKE53281,15
  10. 100 REM ***BORDER FLASH***
  11. 110 FORJ=679 TO 693:READ K:POKEJ,K:NEXT
  12. 120 FORX=1TO10:PRINT:NEXTX
  13. 130 PRINTTAB(5)"   [146][183][183][183][208]"
  14. 140 PRINTTAB(5)"   [146]   [167]"
  15. 150 PRINTTAB(5)"   [146]   [167]"
  16. 160 PRINTTAB(5)"   [146][175][175][175][186]"
  17. 170 PRINTTAB(5)"   [146]"
  18. 180 PRINTTAB(5)"   [146]"
  19. 190 PRINTTAB(5)"   [146]"
  20. 200 FORX=1TO500:NEXTX:PRINT"[145][145][145][145][145][145][145][145]"
  21. 210 PRINTTAB(15)"   [146][183][183][183][208]"
  22. 220 PRINTTAB(15)"   [146]"
  23. 230 PRINTTAB(15)"   [223][146]"
  24. 240 PRINTTAB(15)"       [146]"
  25. 250 PRINTTAB(15)"   [223]   [146]"
  26. 260 PRINTTAB(15)"       [146]"
  27. 270 PRINTTAB(15)"[204][175][175][175]   [146]"
  28. 280 FORX=1TO500:NEXTX:PRINT"[145][145][145][145][145][145][145][145]"
  29. 290 PRINTTAB(25)"[207][183][183]   [146][183][183][208]"
  30. 300 PRINTTAB(25)"      [146]"
  31. 310 PRINTTAB(25)"      [146]"
  32. 320 PRINTTAB(25)"      [146]"
  33. 330 PRINTTAB(25)"      [146]"
  34. 340 PRINTTAB(25)"      [146]"
  35. 350 PRINTTAB(25)"[204][175][175]   [146][175][175][186]"
  36. 360 FORX=1TO500:NEXTX
  37. 370 FORX=1TO16:PRINT:NEXTX
  38. 380 FORX=1TO1000:NEXTX:PRINT"[145][145][145][145][145][145][145][145][145][145][145]"TAB(19)"BY":PRINT:PRINT:PRINT
  39. 390 FORX=1TO500:NEXTX
  40. 400 PRINTTAB(11)"JEFFREY S. TOLLEY":FORX=1TO1000:NEXTX
  41. 410 PRINT:PRINT:PRINT:PRINTTAB(14)"<HIT ANY KEY>":SYS679:PRINT"[147]":ZZ$=""
  42. 420 GOSUB1430
  43. 430 PRINTCHR$(14)
  44. 440 FORX=1TO10:PRINT:NEXTX:PRINTTAB(5)"[196]O YOU WANT INSTRUCTIONS? (Y/N)"
  45. 450 GET ZZ$:IFZZ$=""THEN450
  46. 460 IF ZZ$<>"Y"THEN830
  47. 470 PRINT"[147][212]HIS PROGRAM IS A RANDOM-EVENT GENERATOR";
  48. 480 PRINT"THAT MAY BE USED TO TEST ESP ABILITIES,"
  49. 490 PRINT"SPECIFICALLY, PRECOGNITIVE ABILITY, OR"
  50. 500 PRINT"THE ABILITY TO SEE INTO THE FUTURE.":PRINT
  51. 510 PRINT"[215]HILE NOT AS SOPHISTICATED, THIS"
  52. 520 PRINT"PROGRAM IS A SCALED-DOWN VERSION OF THE"
  53. 530 PRINT"COMPUTER TESTS USED BY ACTUAL PSYCHIC"
  54. 540 PRINT"RESEARCHERS.":GOSUB1430
  55. 550 PRINT"[198]IRST, YOU'LL BE SHOWN FIVE PATTERNS."
  56. 560 PRINT"[217]OU'LL TAKE SEVERAL TURNS GUESSING WHAT"
  57. 570 PRINT"PATTERN THE COMPUTER WILL RANDOMLY "
  58. 580 PRINT"DISPLAY NEXT.  [193]FTER YOU'RE DONE, THE "
  59. 590 PRINT"RESULTS ARE DISPLAYED AND A SIMPLE"
  60. 600 PRINT"EVALUATION OF YOUR [197][211][208] (OR [208][211][201]) "
  61. 610 PRINT"ABILITIES IS MADE.  [212]HIS IS DONE BY "
  62. 620 PRINT"COMPARING THE NUMBER OF CORRECT GUESSES"
  63. 630 PRINT"YOU MAKE TO THE NUMBER OF ANSWERS YOU"
  64. 640 PRINT"HAVE THE PROBABILITY OF GUESSING "
  65. 650 PRINT"CORRECTLY AT RANDOM.":GOSUB1430
  66. 660 PRINT"[212]WO HINTS TO GET THE MOST OUT OF THE "
  67. 670 PRINT"GAME: 1) [212]HE HIGHER NUMBER OF EVENTS YOU";
  68. 680 PRINT"CHOOSE, THE BETTER THE CHANCES OF"
  69. 690 PRINT"GETTING RESULTS THAT ARE ACCURATE AND"
  70. 700 PRINT"NOT PRODUCED BY CHANCE.  2) [215]HEN YOU "
  71. 710 PRINT"READ THE RESULTS, REMEMBER THAT A NUMBER";
  72. 720 PRINT"OF CORRECT GUESSES SIGNIFICANTLY LOWER"
  73. 730 PRINT"THAN THE PROBABILITY OF CORRECT ANSWERS"
  74. 740 PRINT"CAN ALSO INDICATE PSYCHIC ABILITIES,"
  75. 750 PRINT"ESPECIALLY IN THOSE PEOPLE WHO ARE"
  76. 760 PRINT"SKEPTICAL OF, OR NON-BELIEVERS IN,"
  77. 770 PRINT"PSYCHIC PHENOMENA."
  78. 780 PRINT:PRINT"[201]F YOU HAVE ANY COMMENTS, PRAISE, "
  79. 790 PRINT"SUGGESTIONS OR INFO ABOUT SIMILAR "
  80. 800 PRINT"PROGRAMS, PLEASE ADDRESS YOUR [197]-MAIL TO"
  81. 810 PRINT"[202]EFF [212]13[146]."
  82. 820 PRINT:PRINT"[197]NJOY YOUR GAME!":GOSUB1430
  83. 830 REM THE GAME
  84. 840 ZZ$=""
  85. 850 PRINT"[147]":FORX=1TO10:PRINT:NEXTX
  86. 860 INPUT"[200]OW MANY EVENTS? (10/20/50/100) ";EV
  87. 870 IF EV=10THEN920
  88. 880 IF EV=20THEN920
  89. 890 IF EV=50THEN920
  90. 900 IF EV=100THEN920
  91. 910 GOTO860
  92. 920 PRINT:PRINT:PRINT"[207]KAY. [204]ET'S LOOK AT ALL THE PATTERNS.":GOSUB1430
  93. 930 GOSUB1470:GOSUB1430
  94. 940 GOSUB1580:GOSUB1430
  95. 950 GOSUB1690:GOSUB1430
  96. 960 GOSUB1810:GOSUB1430
  97. 970 GOSUB1910:GOSUB1430:PRINTCHR$(14)
  98. 980 FOR L=1TO EV
  99. 990 PRINTCHR$(14)
  100. 1000 PRINT"[147][197]VENT #"L"[157]        [195]ORRECT [199]UESSES:"CG"[157]    [146]"
  101. 1010 PRINT
  102. 1020 PRINTTAB(6)"[215]HICH PATTERN WILL BE NEXT?"
  103. 1030 POKE646,7:PRINT:PRINTTAB(15)"1) [211]QUARE"
  104. 1040 POKE646,8:PRINT:PRINTTAB(15)"2) [212]RIANGLE"
  105. 1050 POKE646,14:PRINT:PRINTTAB(15)"3) [211]TAR"
  106. 1060 POKE646,13:PRINTTAB(15)"4) [208]LUS":POKE646,1
  107. 1070 POKE646,1:PRINTTAB(15)"5) [196]IAMONDS"
  108. 1080 POKE646,4:PRINT:PRINT:INPUT"               [197]NTER 1-5 ";GU
  109. 1090 IF GU<1 OR GU>5 THEN1000
  110. 1100 PRINT"[147]"
  111. 1110 PA=INT(RND(0)*5+1)
  112. 1120 IF PA=GU THENCG=CG+1
  113. 1130 IF PA=1 THEN GOSUB1470
  114. 1140 IF PA=2 THEN GOSUB1580
  115. 1150 IF PA=3 THEN GOSUB1690
  116. 1160 IF PA=4 THEN GOSUB1810
  117. 1170 IF PA=5 THEN GOSUB1910
  118. 1180 IF PA=GU THENPRINTTAB(12)"YOU GUESSED RIGHT![146]":GOTO1200
  119. 1190 PRINTTAB(13)"GUESS INCORRECT[146]":GU=0
  120. 1200 IFPA<>GUTHENGOSUB1430:GOTO1220
  121. 1210 PRINTTAB(14)"<HIT ANY KEY>":SYS679:FORVV=1TO500:NEXTVV:GU=0:PRINT"[147]"
  122. 1220 NEXT L
  123. 1230 PRINTCHR$(14)
  124. 1240 PRINTTAB(15)"[197][214][193][204][213][193][212][201][207][206][146]":PRINT:PRINT:PRINT
  125. 1250 PRINT"[206]UMBER OF EVENTS:"EV:PRINT
  126. 1260 PN=EV*.2
  127. 1270 PRINT"[208]ROBABLE NUMBER OF CORRECT GUESSES:"PN:PRINT:PRINT:PRINT
  128. 1280 PRINT"[217]OU MADE"CG"CORRECT GUESSES.":PRINT
  129. 1290 DF=CG-PN
  130. 1300 ST$="ABOVE"
  131. 1310 IF DF<0 THENST$="BELOW"
  132. 1320 DF=ABS(DF)
  133. 1330 PRINT"[212]HAT'S"DF"GUESSES "ST$" CHANCE."
  134. 1340 PC=100/EV:SI=PC*DF
  135. 1350 PRINT
  136. 1360 PRINT"[217]OUR PSI RATING IS"SI"[157]%[146]"
  137. 1370 PRINT:PRINT
  138. 1380 PRINTTAB(11)"[208]LAY AGAIN? (Y/N)"
  139. 1390 GET ZZ$:IFZZ$=""THEN1390
  140. 1400 IF ZZ$="N"THEN1420
  141. 1410 CLR:GOTO830
  142. 1420 PRINT:PRINT:PRINTTAB(7)"[212]HANK YOU FOR PLAYING [208][211][201]!":PRINT:PRINT:END
  143. 1430 REM *GET ROUTINE*
  144. 1440 PRINT:PRINT:PRINT:PRINTTAB(14)"<HIT ANY KEY>"
  145. 1450 GET ZZ$:IF ZZ$=""THEN1450
  146. 1460 PRINT"[147]":RETURN
  147. 1470 REM SQUARE
  148. 1480 PRINTCHR$(142)
  149. 1490 PRINT:PRINT"[158]"
  150. 1500 PRINTTAB(17)"[207][183][183][183][183][183][208]"
  151. 1510 PRINTTAB(17)"[165]     [170]"
  152. 1520 PRINTTAB(17)"[165]     [170]"
  153. 1530 PRINTTAB(17)"[165]     [167]"
  154. 1540 PRINTTAB(17)"[165]     [167]"
  155. 1550 PRINTTAB(17)"[204][175][175][175][175][175][186]"
  156. 1560 PRINT:PRINT:PRINTTAB(17)"SQUARE":PRINT:PRINT"[156]"
  157. 1570 RETURN
  158. 1580 REM TRIANGLE
  159. 1590 PRINTCHR$(142)
  160. 1600 PRINT:PRINT:POKE646,8
  161. 1610 PRINTTAB(17)"     [146][169]"
  162. 1620 PRINTTAB(17)"    [146][169]"
  163. 1630 PRINTTAB(17)"   [146][169]"
  164. 1640 PRINTTAB(17)"  [146][169]"
  165. 1650 PRINTTAB(17)" [146][169]"
  166. 1660 PRINTTAB(17)"[169]"
  167. 1670 PRINT:PRINT:PRINTTAB(17)"TRIANGLE":PRINT:PRINT"[156]"
  168. 1680 RETURN
  169. 1690 REM STAR
  170. 1700 PRINTCHR$(142)
  171. 1710 PRINT:PRINT:POKE646,14
  172. 1720 PRINTTAB(17)"*  *  *"
  173. 1730 PRINTTAB(17)" * * *"
  174. 1740 PRINTTAB(17)"  ***"
  175. 1750 PRINTTAB(17)"*******"
  176. 1760 PRINTTAB(17)"  ***"
  177. 1770 PRINTTAB(17)" * * *"
  178. 1780 PRINTTAB(17)"*  *  *"
  179. 1790 PRINT:PRINT:PRINTTAB(18)"STAR":PRINT:PRINT"[156]"
  180. 1800 RETURN
  181. 1810 REM PLUS
  182. 1820 PRINTCHR$(142)
  183. 1830 PRINT:PRINT:POKE646,13
  184. 1840 PRINTTAB(17)"   [194]   "
  185. 1850 PRINTTAB(17)"   [194]"
  186. 1860 PRINTTAB(17)"[195][195][195][219][195][195][195]"
  187. 1870 PRINTTAB(17)"   [194]"
  188. 1880 PRINTTAB(17)"   [194]"
  189. 1890 PRINT:PRINT:PRINTTAB(18)"PLUS":PRINT:PRINT"[156]"
  190. 1900 RETURN
  191. 1910 REM DIAMONDS
  192. 1920 PRINTCHR$(142)
  193. 1930 PRINT:PRINT""
  194. 1940 PRINTTAB(17)"[206][205][206][205][206][205][206][205]"
  195. 1950 PRINTTAB(17)"[205][206][205][206][205][206][205][206]"
  196. 1960 PRINTTAB(17)"[206][205][206][205][206][205][206][205]"
  197. 1970 PRINTTAB(17)"[205][206][205][206][205][206][205][206]"
  198. 1980 PRINTTAB(17)"[206][205][206][205][206][205][206][205]"
  199. 1990 PRINTTAB(17)"[205][206][205][206][205][206][205][206]"
  200. 2000 PRINT:PRINT:PRINTTAB(17)"DIAMONDS":PRINT:PRINT"[156]"
  201. 2010 RETURN
  202. 2020 REM ***BORDER FLASH DATA***
  203. 2030 DATA 172,032,208,202,142,032,208,165
  204. 2040 DATA 198,240,248,140,032,208,096
  205.